From 7dce3709b4aff9863bf805b9e483fb7153d9f01c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Jun 1993 06:03:56 +0000 Subject: [PATCH] (copy-tree): Use let* to bind new before i. --- lisp/emacs-lisp/lucid.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 7a8ff4789ba..dc45ef546f7 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -29,8 +29,8 @@ (cons (copy-tree (car tree)) (copy-tree (cdr tree))) (if (vectorp tree) - (let ((new (copy-sequence tree)) - (i (1- (length new)))) + (let* ((new (copy-sequence tree)) + (i (1- (length new)))) (while (>= i 0) (aset new i (copy-tree (aref new i))) (setq i (1- i))) -- 2.30.2